home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / Pov / POV302 / SCENES / MATH / TCUBIC.POV < prev    next >
Encoding:
Text File  |  1993-09-27  |  1.1 KB  |  47 lines
  1. // Persistence Of Vision raytracer version 2.0 sample file.
  2.  
  3. // By Alexander Enzmann
  4. /* sample quartic scene file written by Alexander Enzmann */
  5.  
  6. #include "shapes.inc"
  7. #include "colors.inc"
  8. #include "textures.inc"
  9.  
  10. /* Cubic curve - can make a nice teardrop by cleverly adding a clipping plane */
  11. intersection {
  12.    quartic {
  13.       < 0.0,  0.0,  0.0,  -0.5, 0.0,  0.0,  0.0,  0.0,  0.0, -0.5,
  14.         0.0,  0.0,  0.0,   0.0, 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
  15.         0.0,  0.0,  0.0,   0.0, 0.0,  1.0,  0.0,  0.0,  0.0,  0.0,
  16.         0.0,  0.0,  1.0,   0.0, 0.0 >
  17.  
  18.       texture {
  19.          pigment { Red }
  20.          finish {
  21.             phong 1.0
  22.             diffuse 0.8
  23.             ambient 0.2
  24.          }
  25.       }
  26.    }
  27.  
  28.    sphere {
  29.       <0, 0, 0>, 2
  30.       texture { pigment { Clear } }
  31.    }
  32.  
  33.    bounded_by { sphere { <0, 0, 0>, 2.2 } }
  34.    rotate 20*y
  35. }
  36.  
  37. camera {
  38.    location  <0.0, 0.0, -5.0>
  39.    direction <0.0, 0.0,  1.0>
  40.    up        <0.0, 1.0,  0.0>
  41.    right     <4/3, 0.0,  0.0>
  42. }
  43.  
  44. light_source { <200, 30, -300> colour White }
  45.  
  46. light_source { <-200, 30, -300> colour White }
  47.